]> permondes.de Git - Analog_Engine.git/blame_incremental - AESL/Radioactive Decay.AESL
Application: 2 raindrops, license CC BY-NC-SA 4.0
[Analog_Engine.git] / AESL / Radioactive Decay.AESL
... / ...
CommitLineData
1IDENTIFICATION DIVISION
2PROGRAM-ID Radioactive_Decay
3
4ENVIRONMENT DIVISION
5ENGINE Anabrid-THAT
6REQUIRES Coefficient 2
7REQUIRES Integrator 1
8REQUIRES Inverter 1
9
10DATA DIVISION
11OUTPUT OUTPUT.X N
12ALIAS COEFFICIENT.1 InitialValue
13ALIAS COEFFICIENT.2 Decay
14
15PROGRAM DIVISION
16+1 -> InitialValue -> N0
17N’, IC:N0 -> Integrator.1 -> -N
18-N -> Decay -> -lambda*N=N’
19-N -> Inverter.1 -> N
20
21OPERATION DIVISION
22MODE REPEAT
23OP-TIME 20ms